home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / disk / dirutils / mtool15.lha / MTool / Install_D < prev    next >
Encoding:
Text File  |  1993-09-06  |  4.4 KB  |  160 lines
  1. (transcript "Installation von Multitool II")
  2.  
  3. (set progdest
  4.     (askdir
  5.         (prompt "Bitte wählen Sie ein Verzeichnis für MTool aus.")
  6.         (help "In das gewählte Verzeichnis werden die Programme MTool und MIndicator kopiert.")
  7.         (default "SYS:Tools")
  8.         (newpath)
  9.     )
  10. )
  11.  
  12. (set @default-dest progdest)
  13.  
  14. (copyfiles
  15.     (prompt "Kopiere Hauptprogramm...")
  16.     (source "MTool")
  17.     (infos)
  18.     (dest progdest)
  19. )
  20.  
  21. (complete 20)
  22.  
  23. (copyfiles
  24.     (prompt "Kopiere den Textanzeiger MI")
  25.     (source "MI")
  26.     (infos)
  27.     (dest progdest)
  28. )
  29.  
  30. (complete 40)
  31.  
  32. (if (askbool (help "MIndicator kann nur dann mit XPK und Powerpacker gepackte Dateien anzeigen, wenn diese Libraries installiert werden.") (prompt "Sollen die Packer-Libraries für MI (XPK und Powerpacker) installiert werden?"))
  33. (
  34.     (copylib
  35.         (prompt "Kopiere Powerpacker.library")
  36.         (source "Libs/powerpacker.library")
  37.         (dest "Libs:")
  38.     )
  39.     (copylib
  40.         (prompt "Kopiere XPKMaster.library")
  41.         (source "Libs/XPKMaster.library")
  42.         (dest "Libs:")
  43.     )
  44.     (makedir "Libs:Compressors")
  45.     (copyfiles
  46.         (prompt "Installiere XPK-Packverfahren...")
  47.         (source "Libs/Compressors")
  48.         (dest "Libs:Compressors")
  49.         (pattern "#?")
  50.     )
  51. )
  52. )
  53.  
  54. (complete 60)
  55.  
  56. (set vernum (getversion "exec.library" (resident)))
  57. (set ver (/ vernum 65536))
  58.  
  59. (if (> ver 37)
  60.     (if (exists "Locale:Catalogs/deutsch")
  61.     (
  62.         (if (askbool (help "Wenn Sie als Landessprache deutsch gewählt haben und diese Dateien installieren lassen, werden MTool und MI eine deutsche Benutzeroberfläche anzeigen.") (prompt "Soll die deutsche Sprachanpassung installiert werden?"))
  63.         (
  64.             (copyfiles
  65.                 (prompt "Installiere deutschen Catalog für MTool")
  66.                 (source "Catalogs/deutsch/MTool.catalog")
  67.                 (dest "Locale:Catalogs/deutsch")
  68.             )
  69.             (copyfiles
  70.                 (prompt "Installiere deutschen Catalog für MI")
  71.                 (source "Catalogs/deutsch/MI.catalog")
  72.                 (dest "Locale:Catalogs/deutsch")
  73.             )
  74.         )        
  75.         )
  76.     )
  77.     )
  78. )
  79.  
  80. (complete 70)
  81.  
  82. (if (> ver 37)
  83.     (if (exists "Locale:Catalogs/español")
  84.     (
  85.         (if (askbool (help "Wenn Sie als Landessprache spanisch gewählt haben und diese Dateien installieren lassen, werden MTool und MI eine spanische Benutzeroberfläche anzeigen.") (prompt "Soll die spanische Sprachanpassung installiert werden?"))
  86.         (
  87.             (copyfiles
  88.                 (prompt "Installiere spanischen Catalog für MTool")
  89.                 (source "Catalogs/español/MTool.catalog")
  90.                 (dest "Locale:Catalogs/español")
  91.             )
  92.             (copyfiles
  93.                 (prompt "Installiere spanischen Catalog für MI")
  94.                 (source "Catalogs/español/MI.catalog")
  95.                 (dest "Locale:Catalogs/español")
  96.             )
  97.         )        
  98.         )
  99.     )
  100.     )
  101. )
  102.  
  103. (complete 80)
  104.  
  105. (if (askbool (help "Die Anleitungen umfassen AmigaGuide-Dokumente für MTool und MI und die Änderungsdatei zu MTool.") (prompt "Sollen die Anleitungen kopiert werden?"))
  106. (
  107.     (set docdest
  108.         (askdir
  109.              (prompt "Bitte wählen Sie ein Verzeichnis für die Anleitungen aus.")
  110.              (help "Es ist egal, wo Sie die Anleitungen hinstecken, Sie sollten Sie bloß wiederfinden...")
  111.              (default "Work:")
  112.              (newpath)
  113.         )
  114.     )
  115.     (copyfiles
  116.         (prompt "Kopiere Anleitung zu MTool...")
  117.         (source "MTool_D.guide")
  118.         (infos)
  119.         (dest docdest)
  120.     )
  121.     (copyfiles
  122.         (prompt "Kopiere Anleitung zu MI...")
  123.         (source "MIndicator_D.guide")
  124.         (infos)
  125.         (dest docdest)
  126.     )
  127.     (copyfiles
  128.         (prompt "Kopiere Änderungsdokumentation zu MTool...")
  129.         (source "MTool_D.history")
  130.         (infos)
  131.         (dest docdest)
  132.     )
  133. )
  134. )
  135.  
  136. (complete 90)
  137.  
  138. (if (askbool (help "Die Schrift DatMon ist im Hex-Modus von MI recht nützlich, Fineline 11 wird im Aboutrequester von MTool verwendet.") (prompt "Sollen die Schriften kopiert werden?"))
  139. (
  140.     (set fontdest
  141.         (askdir
  142.             (prompt "Bitte wählen Sie ein Verzeichnis für die Schriften aus.")
  143.             (help "Wenn Sie kein Verzeichnis zum Fonts:-Verzeichnis zuge'add'et haben, sollten Sie die Einstellung bei Fonts: belassen.")
  144.             (default "Fonts:")
  145.             (newpath)
  146.         )
  147.     )
  148.     (copyfiles
  149.         (prompt "Kopiere Zeichensätze...")
  150.         (source "Fonts")
  151.         (dest fontdest)
  152.         (pattern "#?")
  153.     )
  154. )
  155. )
  156.  
  157. (complete 99)
  158.  
  159. (exit)
  160.